home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
program68
< prev
next >
Wrap
Text File
|
2007-02-28
|
744b
|
37 lines
0010 // PROGRAM 68
0020 //
0030 // COMELY KATE
0040 //
0050 // TO TOTAL COLUMNS OF AN ARRAY
0060 ZONE 2
0070 PRINT
0080 DIM ARRAY(5,7)
0090 //
0100 // READ IN THE NUMBERS
0110 //
0120 FOR R#:=1 TO 5 DO
0130 FOR C#:=1 TO 7 DO
0140 READ ARRAY(R#,C#)
0150 PRINT ARRAY(R#,C#),
0160 ENDFOR
0170 PRINT
0180 ENDFOR
0190 PRINT
0200 //
0210 // NOW ADD THE COLUMNS
0220 //
0230 FOR C#:=1 TO 7 DO
0240 TOTAL:=0
0250 FOR R#:=1 TO 5 DO
0260 TOTAL:=TOTAL+ARRAY(R#,C#)
0270 ENDFOR
0280 PRINT TOTAL,
0290 ENDFOR
0300 //
0310 DATA 48.6,50.1,42.8,60.3,74.2,45.8,50
0320 DATA 50.8,52.5,40.4,55.8,68.9,50.2,48.6
0330 DATA 61.7,62.6,48.9,58.9,80.4,53.5,51.6
0340 DATA 49.2,60.4,45.8,59.2,67.6,48.1,49.4
0350 DATA 42.6,62.6,46.3,59.5,68.9,52.6,45.6
0360 END